.DO External 

.LSTON 

.Page 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Module: Cmndl { continuation of the command processor module } 

> 

> PROCEDURE D JJead 

> PROCEDURE D_ReadHdr 

> PROCEDURE DJ4rite 

> PROCEDURE ReadJCStatus 

> PROCEDURE ReadJSStatus 

> PROCEDURE SendJServoCmnd 

> PROCEDURE SendJSeek 

> PROCEDURE Send_Restore 

> PROCEDURE Send J^ark 

> PROCEDURE Set_Ram_flddr 

> PROCEDURE WrJSprTbl 

> PROCEDURE Format 

> PROCEDURE Read_Rbort 

> PROCEDURE D_RstSrvo 

> PROCEDURE D^lnitSprTbl 
y 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO External 

.LSTOM 

. Page 

>>>>>>>>>>>>>>>>>>>>>>>>. V >>>>>>.> 

> 

> Procedure: D_Read 

> 

> This procedure is used by the Host to invoke the primitive 

> read function. The block that is read by this routine is the 

> last seek address < cylinder^ head., and sector ). It Is 

> best to turn recovery OFF before using this command - as i t 
:» is when using ALL diagnostic commands. 

> 

> Inputs: { none ) 

> Outputs: { none ) 

> filgorlthm: 

> 

> BEGIN 

> ClrNormStat 

> ftck_Read( D_Read_Response > 

> IF NOT< ReadJCommon > 

> THEN DataJEx_Handler< ReadJCommon.ErrorCode > 

> Rd_Leave 

> END 

5. 

>>>>>>>>>>>>>>>;>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO Internal 

.LSTON 

.Page 

.Flii 



D_Read: 



Call ClrNormStat 



Ld 
Co! i 



I4rk_ I o+$fl , «D_Read_Response 
flck_Read 



D_Read_End: 



Ld 


Dala—TypSj, *User_Type 


find 


D i skStat, «$FF-WrJOp 


Cal 1 


ReadJCommon 


Jr 


H2,D_Read_End 


Ld 


!rO,*Error 


Cai i 


Data_Ex_Harid I er 


Jp 


Rd-Lea<.>e 


.LSTOFF 




DO 


External 


.LSTOM 




.Page 





>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

> 

> Procedure: D_BeadHdr 

> 

> This diagnostic command is used to read the header < and whatever 

> the contents may be > of the block pointed to by the last seek 

> address. The host should be cautioned that the buffer that the 

> controller points it to at the completion of the read is longer 

> than a normal read buffer by the length of the header and the 

> data gap. 
> 

> Inputs: { none } 

J. 

> Outputs: { none } 

> 

> Algorithm: 

> 

> BEGIH 

> CIrNormStat 

> ftek_Bead< 0_RdHdr_Response > 

> Sector := Ld-Paraml .First 

> LocateSector 

> ReadHdr 

> IF ReadHdr . ServoErr THEN SetStatus< ByteO, SeryoEror > 

> IF ReadHdr. CrcErr THEN SetStatus< ByteO, ReadError > 

> noMe4C RdHdrStatusflrray, CStatusO ) 

> Clr_Bsy< RdHdrStatusflrray > 

> 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO Internal 

.LSTOH 

. Page 

.FIN 



D_ReadHdr: 



Call CIrNormStat 

Ld Wrk_lo+$fl,«D_RdHdr_Response 

Cai I flck_Read 

Cal I Ld_Pararot 

Ld Sector, !rO j load new sectcr- 



Ld 
Ld 
Cai 1 



!r2,«.HIBVTE. LocateSector 
!r3,«.L0MBVTE. LocateSector 
Bank JCd I I 



D_RdHJCrc: 



D_RdH_Erid: 



Ld Da to-Type , «User_Type 

find D iskStat, «$FF-WrJ)p 

Ld !r2,«.HIBVTE. ReadHdr 

Ld ?r3,«.L0HBVTE. ReadHdr 

Cal 1 BankJCal I 

Push !rO jsave status byte 

Tm \rQ, «RdHSrvoErr ; I F ReadHdr . ServoErr 

Jr Z,D_RdHjCrc 

Clr !rO ;byteO 

Ld !rt,«Stat-JSrvo 

Cal I SetStatus 

Pop !rO 

Tm !rO,«RdCrcErr 

Jr 2,D_RdH_End 

Clr !rO ;byte 

Ld lr1,«Stat_Rd_Err 

Cal I SetStatus 

Ld lr2,«.HIBVTE. CStatusO 

Ld !r3,«.L0MBVTE. CStatusO 

Ld !rE,«.HIBYTE. RdH_JStat_flrray 

Ld !rF,«.LOUBVTE. RdH_Stat_flrray 

Cal I rioMe4_B0 

Srp «Wrk_lo 

Ld ! r fi ^ * I n i t -Response 

Clr !rB 

Ld !rC,«.HIBVTE. RdHjStat_flrray 

Ld !rD,».LOMBS^TE. RdH_Stat_firray 

Jp CIr-Bsy 

.LSTOFF 

.DO External 
.LSTOH 



>> 



>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
Procedure: DJ4rite 

This procedure, like DJRead, allows the host to perform 
a single write to the last seek address. KEEP IN MIND THfiT 
THIS ROUTINE WILL RLLOM VOU TO WRITE flNYl4HERE ON THE DISK THRT 
VOU CARE TO WRITE! Ill 

Inputs: { none > 

Outputs: { none ) 

fi I gor i thffl : 

BEGIN 
ClrNorroStat 

Get_Wr_DataC DJWri te_Response > 



;> IF ttOT< WrI tejCofflfflon > 

;> THEN Data_Ex_Handler< Wr JCommon . Errot^Code ) 

; > Rd JLeave 

; > EfID 

; > 

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

.LSTOFF 
.FIN 

DO Internal 
.LSTON 
.Page 

FIN 

D-Write: 

Call ClrNormSlat 

Ld Da ta_Type , *User_Type 
Or Disks tat, «l4rJQp 

Ld Wr k_ I o+$fl , «D_Wr I te J=lesponse 
Cal I GetJ4r_Data 

Cal I WrJCommon 

Jr Nz, D_Wr i te_End 

Ld !rO,«Error 
Co 1 1 Data_Ex_Wand I er 

D J4r i te JEnd : Jp Rd_Leavs 

.LSTOFF 

DO External 
. LSTON 
.Page 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

> 

> Procedure: ReadJCStatus 

> 

> This procedure allows the host to read any of the controllers 

> status'. These status' all come in 4 byte quantities: 

> 

> StatusO: StandardJStatus { sent to the host at the completion 

> of a command - note that a request 

> for status is MOT a coniisand } 

> Status 1: Last-Logical -Block { 0, Hi Byte, NidByte, LoByte } 

> Status2: LastJSeek-fiddress {HiCylinder, LoCyl inder. Head, Sector > 

> StatusS: Current jCy I i nder { Hi Cylinder, LoCylinder, 0, } 
Status4: lnternal_JStat { ExcptJStat, DiskStat, BIkStat, > 

> Status5: Cntrl-Port { 0, SI fTst_Resul t, 0, Controller-Port } 

> Status5: Error jStatus { RdStat, RdErrCnt, WrStat, WrErrCnt > 

> Status?: Last_JSeek_fiddress { Lst_HiCyl, Lst_LoCyl, Lst-Head, 

> LstJSector } 

> {all illegal status requests wi t I r&iurn standard status } 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO Internal 

.LSTON 

.Page 

.FIN 



Read-jCStatus : 

Ld 
Cai i 

Ld 
Ld 

Cai i 

Rnd 

Cp 

Jp 

Ld 

Ld 

Rl 

ftdd 

ftdc 

Ldc 

I new 

Ldc 

■Jp 

Stat_Table: .DU 
.DW 
.DW 
.DW 
.DM 
.DU 
.DU 
.DM 

Ld_JStat1: Incai 
Ld 
Ld 
Cci! ! 
^^ 

Ld_Stat2: Ld 
Ld-JStat2_1 : Ld 
Ld^tat2_Lp: Ldel 
Djnz 
Jr 

Ld^tatS: Ld 
.> 

LdJStat4: Ld 
Ld 
Ld 
Ld 
Jr 

Ld^tatS: Ld 
Ld 
Ld 
Ld 
Ld 
Lde 
Jr 

LdJStat6: Ld 
Ld 



Wrk-I o+$fl, «Rd_jStat_P.esponse 
fick_Read 

!rE,«.HIBVTE. Statusflrray 
!rF,«.LOMBYTE. Stalusfirray 

Ld-Pararo 1 

!rO,*$CF ;mask off a!! but legal status request 

!r0^*7 ; check fcM^ except case 

Gt^Rd-Leave 

!r2,«.HIBVTE. Stat_Table 
!r3,«.L0WBVTE. Stat_Table 
IrO 

!r3, IrO 
!r2,«0 
!rC,e! !r2 
! !r2 

!rD,ei !r2 
§}rC 

Rd-LeaMe 
Ld_JStat1 
Ld_JStat2 
Ld_Stat3 
LdJStat4 
Ld^tatS 
Ld_Stat6 
Ld_jStat? 

! !rE 

!r2,«.HIBVTE. LogicalBlock 
lr3,«.L0UBVTE. LogicalBlock 
nove4_B0 
Ld_JStat_End 

!rO,«Cyl inder 
!r1,*4 jfflove 4 bytes 
©MrE.glrO 
!r1,LdJStat2J-p 
Ld_StatJEnd 

lrO.«Cur_jCy! 
Ld_Stat2_1 

I rOj, Excpt_jStatus 
Irl^DiskStatus 
!r2,BlkStat 
!r3, Data-Type 
LdJStat_Reg 

!rO,«0 

lr1,SlfTst_Result 
lr2,Port2 

!rC,«.HIBVTE. Status_Port 
lrD,«.LOWBVTE. Status-Port 
!r3,§nrC 
LdJStat_Reg 

IrO.RdStat 
lr1,RdErrCnt 





Ld 


!r2,MrStat 




Ld 


!r3,UrErrCnt 




Jr 


Ld^tatJReg 


Ld_Jbtat f : 


Ld 


1 i ^ X 111 . 1 
!ru,Lst_njCy 1 




Ld 


!r1jLst_i.oCy! 




Ld 


!r2,LstJriead 




Ld 


!r3,Lst^ector 


LdJStat-Keg: 


Ld 


!r4,Rp 




Ld 


!r5,*4 ;move 4 bytes 


StatSJLp: 


Ldei 


§! !rE,§!r4 




Djnz 


!r5,Stat5_Lp 


LdJStatJEnd: 


Ld 


Wrk_l o+$R, * 1 n 1 1 JResponse 




Clr 


Urk_lo+$B 




In 


nd_Lecive i 




.LSTOFF 






.DO 


External 




.LSTON 






.Page 





>>>>>>>>.>>>>>>>>>>>>>>>>>>>>>>>>>> 



;> Procedure: Read_SStatus 

; > 

;> This procedure is used by the host to examine the servo processor's 

;> status infornnatlon. The controller makes NO assumptions concerning 

;> knowledge or meaning of the status bits, nor does the controller 

;> interpret the status request sent by the host. In other words, 

;> when the host issues a request for status to the servo, it is 

;> his responsibility to make certain that the request is meaningful. 
; > 

;> The returned status is preceded by Standard Status. 

; > 

;>>>>>>>>>>>. ^ >>>>>>>>>>>>> >>>>>>>>.> 
.LSTOFF 
.FIH 

.00 Interna! 

.LSTON 

.Page 

.FIN 

ReadJSStatus: 

Call CIrNormStat 

Ld Wrk_lo+$fl,«RdjSStat_Response 
Cal I flck_Read 

Ca 1 1 Ld_Param 1 

Call Set_J3fflt 

Ld ScrRegS, !rO 

Ld ScrPiegO,«ReadStatus 

Ld ScrReg1,«0 

Ld ScrReg2,«0 

Ld !r2,*.HIBVTE. ServoStatus 

Ld ?r3,«.L0MBYTE. ServoStatus 

Call BankJCal I 

Call CIrJDffit 



Call 



LdJStandJStat 



Ld !r2,*.HIBVTE. SStatusO 

Ld !r3,«.L0WBVTE. SStatusO 

Cell I MoMe4_B0 

Jr LdJStatJEnd 



Ld_Pararo 1 : Ld ScrReg4 , Rp 

Push Rp 

Sr-p «Wrk_Scr 

Ld !rE,«.H!BVTE. ( CStatus4 + 2 ) 

Ld !rF.«.LOUBVTE. < CStatus4 + 2 ) 

Ld !r5,«4 ; load 4 bytes 

Rd_-SStat_Lp: Ldei §!r4,§?!rE 

D j nz ! r5 , Rd JSS ta tJ-p 

Pop Rp ;get back to original context 
Ret 



.LSTOFF 

.DO External 

.LSTON 

. Page 

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
' > 

;> Procedure: Send_SeryoCmnd 

; > 

;> This procedure is used by the host to send the servo a command 

;> of any type EXCEPT a status request < use ReadJSStatus for that >. 

;> The controller will Abort the operation if this servo command 

; > is sent to it. 

;> fllso^ as in ReadJSStatus, the host is responsible for the the 
;> command string that it send to the servo -all the Uidget 

;> controller will do is pass along the command string. 

; > 

;>:>>.^ >>>>>>>>>>>>>>>> >>>>>>>>>>>>> 
.LSTOFF 
.FIN 

-DO Internal 

.LSTON 

-Page 

.FIN 



.Send_ServoCmnd : 

Cal I CIrNormStat 

Ld Wrk_lo+$fi,«Sd_S_C_Response 

Cal I flck_Bead 

Cal I Ld_Param1 ;get ser^,«o command 

Or !rO^!rO ; check for Status Command 

Jr NZ/SjScmnd 

Cal I Abort 



S JScmnd : 



Call 


Set_Dmt 


Ld 


ScrRegO, ?rO 


Ld 


ScrRegl, !r1 
ScrReg2, Ir2 


Ld 


Ld 


ScrReg3.!r3 


Ld 


!r2,*.HiBVTE. ServoCmnd 



Ld 
Ccii i 
CqI I 



!r3,«.L0WBVTE. 
BankJCal i 
ClrJDmt 



SeryoCmnd 



Jp Rd_Leaue 
.LSTOFF 

.DO External 

. LSTOli 

.Page 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Procedure : Send JSeek 

> 

> This procedure aliows the host to position the heads flNVWHERE 

> on the disk service that it pleases - the only consideration 

> is to be aware of the crash stop positions! 

> 

> The form of the parameters passed into the control ler are 

> Hi Cylinder. LowCy Under, Head^ Sector. Keep In mind that these 

> ua lues uii i i be used to check for a uaiid header if and mhen 

> a state machine operation ios initiated. 

> 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIH 

.DO Internal 

.LSTON 

. Paqe 

.FIN 

SendwSeek : 

Call CIrNormStat 

Ld l'lrk_lo+$fl,«SJSeek_Response 

Call flckJtead 

Cal I Ld_Parara1 ;get parameters from command processor 

Ld Seek_Type , «flccess 

Ld IrCJrO ;pass params to Seek 

Ld !rD, rrl 

Ld !rE,!r2 

Ld !r-F, !r3 

Cal I New_JSeek 

Ld !r2,«.HIBVTE. Set_SeekNeeded 

Ld ir3,».L0WBVTE. SetjSeekNeeded 

Can Bank-Call 

Jp Rd-Leave 

.LSTOFF 

.DO External 

.LSTON 

.Page 

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
; > Procedure : Send_fiestore 

;> 

;> This command allows the host to issue either a Format Recal or 

;> a Data Recal to the servo wjithout having to build a primitive 

;> servo command. The value of which type of restore is to be 



;? performed Is passed in uilth the command string. 
;> 

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO Internal 

.LSTON 

.Page 

.FIN 

Send-Restore : 



Cal 1 


ClrNormStat 


Ld 


Mrk_l o+$fl, «S_Rstr_Besponse 


LrU I 1 


n\_ri._rieuu 


Tnl 1 

KrKA 1 i 


i_U_J^ ur Uill 1 f gc V. f et.u 1 vgpe 


Cd 


!rO,*DataRecal 


Jr 


Z,S_Restore 


Cp 


!rO,«FrmtRecal 


Jr 


Z, S_P.es tore 


Call 


Abort 


Ld 


!r2,«.H!BS'TE. Restore 


Ld 


!r3,«.L0MBVTE. Restore 


CqI I 


Bank jCa 1 1 


Jp 


Rd-Leaue 


.LSTOFF 




.DO 


Externa 1 


.LSTOM 




.Page 





;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
; > 

;> Procedure: Set-Recovery 

; > 

;> This procedure is used by the host to set the global 

;> variable Recovery either on or off. This variable controls 

;> the behavior of i4idget when an exception occurs; in the 

;> case of Recovery = True, the controller tries everything it 

;> can to correct the exception and continue about it's day. 

;> When Recovery = False, however, the controller will do nothing 

;> about the problem and report the error to the host. 

; > 

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO Internal 

.LSTON 

.Page 

.FIN 

Set-Recovery: 

Call ClrNormStat 

Ld Urk_lo+$fl,*Set_Rcvr_Response 
Cal I fick-Read 

Call Ld-Param1 ;get Set /Reset param 



Or 



Excpt_Status,*Recovery ; assume True 



Or 
Jr 



!rOj,!rO ;test for true or false 
tiz^Set-Rcvr^tore 



find Excpt_Status,»$FF-PiecoMery ; clear old bit 
Set_RcvrjStore: Jp Rd_±,eave 
LSTOFF 

.DO Externa! 
.LSTON 
.Page 

;>>>>>>>>>>>>>>>>>>>>>>. ^ >>>>>>>>>>> 
; > 

;> Procedure: 3end_Park 

j > 

;> This diagnostic command allows the host to issue a Park 

;> command to the drive. This command has the effect of 
;> sending the drive heads off the data surface. 

; > 

;> Inputs: { none > 

• 5. 

;> Outputs: { none ) 

; > 

;> Algorithm: 

j > 

;> BEGIN 
;> ClrHormStat 
;> flck_BeadC S_Park_Besponse > 

; > Park_Heads 
; > Rd_Leave 

;>>:>>>>>>>>>>>>>>>>. v>>>.> 
.LSTOFF 
.FIN 
.DO 

.LSTON 
-Paqe 
.FIN 

Send_Fark: 

Call ClrNormStat 

Ld Urk_lo+$fi,«S_Park_Response 
Call flck_Read 

Ld !r2,«.HIBVTE. Park_Heads 
Ld !r3,«.L0MBVTE. Park_Heads 
Ca 1 1 BankJCa 1 1 

Jp Rd_Leaye 
.LSTOFF 

•DO External 

-LSTON 

. Page 

;>>>>>>>>>>>>>>>>>>>>>>>>>>>> > > > > 
; > 

;> Procedure: StoreJIap 

; ^ 

;> This command allows the Host to logically remap { I.e.j, change 

;> the interleave factor through a remapping of the sector addresses. ) 

;> The way in which the ftap is downloacted into the SpareTable is 

;> by doing a write sequence from the Host to the controller-. 



>>>>>>>>>>> 
Internal 



> Inputs: { none } 

> 

> Outputs: { none } 

> 

> Algorithm: 

> 

> BEGIN 

> GetJ4ri teJ3atci< StJIap-iiesponse > 

> FOR i := TO NbrSctrs-1 DO 

> IF < WriteBufferL i 3 >= HbrSctrs > THEN Abort 

> riap_Tablel ! 3 := MriteBuffert I 3 

> UpDa te JSpar e_Tab I e 

> END 

> 

^ >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
LSTOFF 
.FIN 

.DO Internal 

.LSTOM 

.Page 

.FIN 

StoreJIap: 

Call ClrNorroStat 

Ld I4rk_l o+$A, «St_J1ap_Flesponse 
Cal I Get_Ur_Data 

Ld lr2,«.HIBVTE. WBufferl 

Ld lr3,«.L0MBVTE. WBufferl 

Ld irE,«.HIBVTE. Nap-Table 

Ld !rF,*.LOWBVTE. l1ap_Table 

Ld !r1,«NbrSctrs 

St_J1ap_Lp: Lde !rO,§! !r2 ;get a value from Urite Buffer 

Cp !rO.«NI^Sctrs 
Jr Lt.StJIapl 

Ld IrAJrO 

Cal I Abort 

StJIapl: Lde §! !rE, !rO ; store value into Map_Table 

Incffl ! !r2 

Incm ! !rE 

j nz I r 1 , S t_f1ap_Lp 

Ld !r2,«.HIBVTE. UpDate_JSprTfal 
Ld !r3,*.L0WBS^TE. UpDate-SprTbl 
Call BankJCall 

Jp Rd-LeoMe 

.LSTOFF 

.DO External 

.LSTON 

.Page 

>>>>>>>>> >:>>>>.>> .1^ >>>>>>>>>>>>> > 
> 

> Procedure: MrJSprTbl 

> . , 

> This command allows the host to update the spare table 

> without the controller's intervention. BE CAREFUL MITH 



? THIS OME! 

> 

> Inputs: { none ) 

> Outputs: { none } 
> 

> fl ! gor i thm : 

> 

> BEGIN 

> IF NOT< Chk_Passl4ord< CoininandString+1 ) ) THEN Abort 

> flck_Read< WrJSpr_Response ) 

> Clr_Bsy( Spareflrray ) 

> 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO Internal 
LSTON 
.Page 
.FIN 

Ur_SprTbl : 

Ld Wrk_lo+$fi,«WrJSpr_fiesponse 
Cal I Get_WrJData 

Call CIrNormStat 

Ld ScrReg2,».HIBYTE. C CStatus4 + 2 ? 

Ld ScrReq3,«.L0MBYTE. < CStatu£4 + 2 ) 

Ld lr2,«.HIBVTE. ChkJ'assMord 

Ld !r3,».L0WBVTE. Chk_PassMord 

Call BankJCall 

Jr Nz,!4rjSpr1 

Cal I Abort 

Ur-Sprl: Ld !r2,*.HIBVTE. yrBuf_To_Spr 

Ld !r3,«.L0WBVTE. WrBuf_ToJBpr 

Call BankJCall 

Ld !r2,«.HIBVTE. UpOateJSprTbl 

Ld !r3,«.L0WBVTE. UpDate^rTbl 

Call BankJCall 

Jp Rd_LeaMe 
.LSTOFF 

.DO External 

.LSTOH 

.Page 

>>.>>>>>>>>>>>>>>>>>>>>>>>>>>>>>.> 
> 

> Procedure: Format 

y 

> This procedure allows the host to format the track 

> that the heads are currently positloried over. 

> 

> BE ULTRA CAREFUL HERE! » ! ! THIS COflNAND DESTROS^S ALL 

> DATA ON THE TRACK. . . . DATA RECOUERV WILL BE IMPOSSIBLE 

> AFTER A TRACK HAS BEEN FORMATTED. 

:> 

> The tujo parameters that are passed into the controller 

> by the host al loa) the host to specify the offset from 

> Index mark < in sectors ) that Sector anil be located 



and the interleave factor. 
Inputs: { none } 
Outputs: { none } 
fligori thm: 
BEGIN 

ClrNormStat 

IF NOT< Chk_PassUord< CStatus4+3 > > THEN fifaort 
flck_Read< Frat_Response ) 

!F NOT< FormatTrackC CStatu£4+1, CStatus4+2 ) ) 
THEN Abort 
Rd_LeaMe 
END 



>>>>>>>>>>>>>>>>>>>>>>>:>>>>>>>>> 
.LSTOFF 
.FIN 

.DO Internal 

.LSTON 

.Page 

.FIN 



For^mat : 

Ld 
Cal I 

Cal i 

Ld 

Chk_P iii tParffis : Ca 11 

Ld 
Ld 
Ca l I 
Jr 

Cal I 

Fo 2.Fmt_Chk_lnter 



Format-flbort: 



Ld 
Ld 
Call 



Wrk_l o+$fi . *Ffflt_Response 
flck_Read 

Chk-FmtParms 

Ir4, IrO 

CIrNormStat 

ScrReg2,«.HIBVTE. < CStatus4+4 > 
ScrReg3,«.L0UBVLd I r3, » . L0I4BVTE . Chk-PassUord 
BankJCal I 
Nz, Format 1 

Rbor-t 



!r9, IrO 
fibort 



Fm t jChk_ I *Max_ I n terLeave 

Jr Ug t J. Forma t-flbor t 
Ret 

.LSTOFF 

.DO External 

tents of 

;> the controller's register set at the time of the last abort. 

;> If there has been no abort, the results of this command 

;> m\ \ be>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

.LST(FF 
.FIN 

.DO Internal 
.LSTON 

.Pageead_fJbort: 



Cai i 



CfrliormStat 



Ld Nrk_ I o+$fi^ «Rd_flbr t_Response 
Ca 1 1 Rck_Read 
Ld !rO,«.HIBVTE. fibort_Stal 
Ld !r1,«.L0WBVTE. Aborts tat 
Ld !r2,«.HIBVTE. RBufferl 
Ld bytes 

Rd_ftbt_Lp: Lde !r5,§! !rO 

Lde §!!r2, !r5 
I new ! ! rO 
! ncui ! ! r2 
.DO External 
.LSTON 
.Page 

;>>>>>>>>>>>>>;•>>>.>>>>>>>>>>>>>>> 
; > 

;> Procedure: D_RstSrMO 

: > 

;> Thi Inputs: { none } 

'} ^ 

j> Outputs: { none > 

; > 

;>>>>>>>>>;•>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 
.DO 
.FIH 

DJistSryo: 

Call 

Ld 

Ld 
Cal I 



ClrNormStat 

Wrk_l o+$fl, «RstSryo_Response 

Ld !r2,«.HIBVTE. ResetServo 
!r3,«.L0WBYTE. ResetServo 
BankJCal I 



> 

> Procedure: D_lni tJSprTbl 

> 

> This procedure allows the host to initialize the spare table 

> on the disk. 

> 

> Inputs: { none ) 

> 

> ?k<tputs: { none ) 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIH 

.DO Internal 
eg2,«.HIBVTE. < CStatus4+4 > 

Ld ScrReg3,#.L0WBVTE. < CStatus4+4 > 
Ld {r2,#.HIBVTE. Chk_Passl4ord 
Ld Cal I Abort 

D_l_JSprTbl; Call Ld_Parain1 



Ld Ir4^ !r0 ;pass offset value 
Call BankJCali 



Jp Rd_Leaye 
.LSTOFF 



